Imports System.Xml
Imports System.Data.SqlClient
Public Class dAlerta

    Public Function Existe(ByVal CodigoAlerta As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        Parametros.Add(New SqlParameter("@pECodigoAlerta", CodigoAlerta))
        Return (CapaDeDatos.dConexion.Consultar("STORE_TblAlertaBuscarFiltrado", Parametros).Tables(0).Rows(0).ItemArray(0) = 1)
    End Function
    Public Function Insertar(ByVal Origen As String, _
                            ByVal Referencia As String, _
                            ByVal FechaInicial As String, _
                            ByVal FechaVencimiento As String, _
                            ByVal Estado As String, _
                            ByVal Repeticion As String, _
                            ByVal CodigoUnRep As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList

        If Origen <> "" Then
            Parametros.Add(New SqlParameter("@pEOrigen", Origen))
        End If
        If Referencia <> "" Then
            Parametros.Add(New SqlParameter("@pEReferencia", Referencia))
        End If
        If FechaInicial <> "" Then
            Parametros.Add(New SqlParameter("@pEFechaInicial", FechaInicial))
        End If
        If FechaVencimiento <> "" Then
            Parametros.Add(New SqlParameter("@pEFechaVencimiento", FechaVencimiento))
        End If
        If Estado <> "" Then
            Parametros.Add(New SqlParameter("@pEEstado", Estado))
        End If
        If Repeticion <> "" Then
            Parametros.Add(New SqlParameter("@pERepeticion", Repeticion))
        End If
        If CodigoUnRep <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoUnRep", CodigoUnRep))
        End If


        Return CapaDeDatos.dConexion.ABM("STORE_TblAlertaAlta", Parametros)
    End Function
    Public Function Eliminar(ByVal CodigoAlerta As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If CodigoAlerta <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoAlerta", CodigoAlerta))
        End If
        Return CapaDeDatos.dConexion.ABM("STORE_TblAlertaELIMINAR", Parametros)
    End Function
    Public Function Modificar(ByVal CodigoAlerta As String, _
                                ByVal Origen As String, _
                                ByVal Referencia As String, _
                                ByVal FechaInicial As String, _
                                ByVal FechaVencimiento As String, _
                                ByVal Estado As String, _
                                ByVal Repeticion As String, _
                                ByVal CodigoUnRep As String) As Boolean

        Dim Parametros As ArrayList = New ArrayList
        If CodigoAlerta <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoAlerta", CodigoAlerta))
        End If
        If Origen <> "" Then
            Parametros.Add(New SqlParameter("@pEOrigen", Origen))
        End If
        If Referencia <> "" Then
            Parametros.Add(New SqlParameter("@pEReferencia", Referencia))
        End If
        If FechaInicial <> "" Then
            Parametros.Add(New SqlParameter("@pEFechaInicial", FechaInicial))
        End If
        If FechaVencimiento <> "" Then
            Parametros.Add(New SqlParameter("@pEFechaVencimiento", FechaVencimiento))
        End If
        If Estado <> "" Then
            Parametros.Add(New SqlParameter("@pEEstado", Estado))
        End If
        If Repeticion <> "" Then
            Parametros.Add(New SqlParameter("@pERepeticion", Repeticion))
        End If
        If CodigoUnRep <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoUnRep", CodigoUnRep))
        End If
        Return CapaDeDatos.dConexion.ABM("STORE_TblAlertaModificar", Parametros)
    End Function
    Public Function BuscarFiltrado(ByVal CodigoAlerta As String, _
                                    ByVal Origen As String, _
                                    ByVal Referencia As String, _
                                    ByVal FechaInicial As String, _
                                    ByVal FechaInicialMIN As String, _
                                    ByVal FechaInicialMAX As String, _
                                    ByVal FechaVencimiento As String, _
                                    ByVal Estado As String, _
                                    ByVal Repeticion As String, _
                                    ByVal CodigoUnRep As String) As DataSet
        Dim Parametros As ArrayList = New ArrayList
        If CodigoAlerta <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoAlerta", CodigoAlerta))
        End If
        If Origen <> "" Then
            Parametros.Add(New SqlParameter("@pEOrigen", Origen))
        End If
        If Referencia <> "" Then
            Parametros.Add(New SqlParameter("@pEReferencia", Referencia))
        End If
        If FechaInicial <> "" Then
            Parametros.Add(New SqlParameter("@pEFechaInicial", FechaInicial))
        End If

        If FechaInicialMIN <> "" Then
            Parametros.Add(New SqlParameter("@pEFechaInicialMIN", FechaInicialMIN))
        End If

        If FechaInicialMAX <> "" Then
            Parametros.Add(New SqlParameter("@pEFechaInicialMAX", FechaInicialMAX))
        End If


        If FechaVencimiento <> "" Then
            Parametros.Add(New SqlParameter("@pEFechaVencimiento", FechaVencimiento))
        End If

        If Estado <> "" Then
            Parametros.Add(New SqlParameter("@pEEstado", Estado))
        End If

        If Repeticion <> "" Then
            Parametros.Add(New SqlParameter("@pERepeticion", Repeticion))
        End If

        If CodigoUnRep <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoUnRep", CodigoUnRep))
        End If
        Return CapaDeDatos.dConexion.Consultar("STORE_TblAlertaBUSCARFILTRADO", Parametros)
    End Function
    Public Function ModificarEstado(ByVal CodigoAlerta As String, ByVal Estado As String) As Boolean

        Dim Parametros As ArrayList = New ArrayList
        If CodigoAlerta <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoAlerta", CodigoAlerta))
        End If
        If Estado <> "" Then
            Parametros.Add(New SqlParameter("@pEEstado", Estado))
        End If
        Return CapaDeDatos.dConexion.ABM("STORE_TblAlertaModificarEstado", Parametros)
    End Function
End Class